科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道如何在程序中加入进度条?

如何在程序中加入进度条?

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

如何在程序中加入进度条?

作者:www.chinaitpower.com 来源:www.chinaitpower.com 2007年9月11日

关键字: 技巧 程序 IBM lotus Office

  • 评论
  • 分享微博
  • 分享邮件

Option:   
Option Public   

声明部分(Declaration)   

Declare Public Function NEMProgressBegin Lib "nnotesws.dll" ( Byval wFlags As Integer ) As Long 
Declare Public Sub NEMProgressDeltaPos Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwIncrement As Long ) 
Declare Public Sub NEMProgressEnd Lib "nnotesws.dll" ( Byval hwnd As Long ) 
Declare Public Sub NEMProgressSetBarPos Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwPos As Long) 
Declare Public Sub NEMProgressSetBarRange Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwMax As Long ) 
Declare Public Sub NEMProgressSetText Lib "nnotesws.dll" ( Byval hwnd As Long, Byval pcszLine1 As Lmbcs String, Byval pcszLine2 As Lmbcs String) 

Const NPB_TWOLINE = 3 
Const NPB_ONELINE = 2 

Public Class LNProgressbar 

hwnd As Long 

Sub New(SecondLineVisible As Integer) 
   'Set-up the progress bar on the screen  
If SecondLineVisible Then 
hwnd = NEMProgressBegin(NPB_TWOLINE)  
Else 
hwnd = NEMProgressBegin(NPB_ONELINE) 
End If 
End Sub 

Sub SetText(FirstLineText As String,SecondLineText As String) 
   'Display the text in progress bar  
NemProgressSetText hwnd, FirstLineTExt,SecondLineText  
End Sub 

Sub SetProgressPos(Progresspos As Long) 
NEMProgressSetBarPos hwnd, ProgressPos  
End Sub 

Sub SetProgressRange(ProgressMaxElements As Long) 
   'Set-up the max elements in the progress bar, if you have  
   'a list with 230 elements then set the MAX to 230 elements. 
   'For every element you proceed increase the SetProgressPos  
   'by one to reached 230  

NEMProgressSetBarRange hwnd, ProgressMaxElements 

End Sub 

Sub DeltaPos(DPos As Long) 
   ' This function adds the number in DPOS to the current ProgressPos 
NEMProgressDeltaPos hwnd, DPos 
End Sub  

Sub Delete 
   'Terminate the progress bar on the screen  
NEMProgressEnd hwnd 
End Sub 

End Class 

操作按钮的Click事件:   
Sub Click(Source As Button) 
Dim pb As New LNProgressBar(True) 
Dim i As Long 

Call pb.SetText("这是一个测试","来自http://www.flycat.net") 

'set the range to 10000 elements 
Call pb.SetProgressRange(10000) 

For i=1 To 10000 
' process the elements  
Call pb.SetProgressPos(i) 
Next 

'Terminate the progress bar 
Delete pb 
End Sub 

    • 评论
    • 分享微博
    • 分享邮件
    闂侇収鍠曞▎銏㈡媼閵忋倖顫�

    濠碘€冲€归悘澶愬箖閵娾晜濮滈悽顖涚摃閹烩晠宕氶崶鈺傜暠闁诡垰鍘栫花锛勬喆椤ゅ弧濡澘妫楅悡娆撳嫉閳ь剟寮0渚€鐛撻柛婵呮缁楀矂骞庨埀顒勫嫉椤栨瑤绻嗛柟顓у灲缁辨繈鏌囬敐鍕杽閻犱降鍨藉Σ鍕嚊閹跺鈧﹦绱旈幋鐐参楅柡鍫灦閸嬫牗绂掔捄铏规闁哄嫷鍨遍崑宥夋儍閸曨剚浠樺ù锝嗗▕閳ь剚鏌ㄧ欢鐐寸▕鐎b晝顏遍柕鍡嫹

    重磅专题
    往期文章
    最新文章